home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / dviware / quicspool / libqmsquery / qmspaglex.l < prev    next >
Text File  |  1990-10-01  |  960b  |  51 lines
  1. /* $Header: qmspaglex.l,v 1.1 88/01/15 12:19:22 simpson Rel $
  2. %{
  3. /*
  4. $Log:    qmspaglex.l,v $
  5.  * Revision 1.1  88/01/15  12:19:22  simpson
  6.  * initial release
  7.  * 
  8.  * Revision 0.1  87/12/11  21:34:48  simpson
  9.  * beta test
  10.  * 
  11. */
  12. #undef input
  13. #define input() (((yytchar=yysptr>yysbuf?U(*--yysptr):timedgetc(_Ifp)) \
  14.     ==10?(yylineno++, yytchar):yytchar)==EOF?0:yytchar)    
  15. double    atof();
  16. %}
  17. real    ([0-9]*\.[0-9]+)|([0-9]+\.[0-9]*)
  18. integer    [0-9]+
  19. %%
  20. PAG:            return PAG;
  21. PO            return POT;
  22. TM            return TMT;
  23. BM            return BMT;
  24. LM            return LMT;
  25. RM            return RMT;
  26. LPI            return LPIT;
  27. CPI            return CPIT;
  28. PROP            return PROP;
  29. PT            return PTT;
  30. PS            return PST;
  31. SO            return SOT;
  32. CC            return CCT;
  33. = |
  34. \, |
  35. P |
  36. L |
  37. Y |
  38. N            {
  39.             yylval.i = yytext[0];
  40.             return yytext[0];
  41.             }
  42. {real}            {
  43.             yylval.r = atof(yytext);
  44.             return REAL;
  45.             }
  46. {integer}        {
  47.             yylval.i = atoi(yytext);
  48.             return INTEGER;
  49.             }
  50. \r\n            return ENDLINE;
  51.